<%
dim conexion
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.open "PROVIDER=SQLOLEDB;DATA SOURCE=valp-messrv01;UID=sa;PWD=messrv;DATABASE=wasp "
dim registros
set registros = Server.CreateObject("ADODB.RecordSet")
registros.open "Select peso,fecha from pesos where codoptima='56'",conexion
do while not registros.eof
response.write("Peso: "& registros("peso"))
response.write("Fecha: "& registros("fecha"))
response.write("<br>")
registros.movenext
loop
conexion.close

%>